package body ffxilog_interface.track is
  function There_are_Lines_on_Current_Log
    (current_lines : in Integer) return Boolean is
  begin
    return current_lines <= Max_Lines and current_lines /= 0;
    --First condition could be avoided?
  end There_are_Lines_on_Current_Log;

  function Log_was_Archived
    (current_lines : in Integer;
     checked_lines : in Integer) return Boolean is
  begin
    return checked_lines > current_lines;
  end Log_was_Archived;

  function Not_All_Lines_from_Archived_Log_were_read
    (checked_lines : in Integer) return Boolean is
  begin
    return checked_lines /= Max_Lines;
  end Not_All_Lines_from_Archived_Log_were_read;
end ffxilog_interface.track;
